﻿Imports System.IO
Public Class Almacén
    Private _Depot As New List(Of Producto)

    Public Function añadirartículo(ByVal p As Producto) As String

        _Depot.Add(p)
        Dim fichero As StreamWriter
        Try
            fichero = New StreamWriter("Productos.txt")
            fichero.WriteLine(p.nombre & "*" & p.descripcion & "*" & p.precio & "*" & p.IDproducto)

        Catch ex As Exception
            Return ex.Message
        End Try
        fichero.Close()

        Return "Producto añadido"
    End Function
    Public Function borrararticulo(ByVal p As Producto) As String
      
       
        If Not _Depot.Contains(p) Then Return "no existe"
        Try
            File.Open("productos.txt", System.IO.FileMode.Open)
            If Not File.Exists("Empleados.txt") Then
                File.Create("Empleados.txt")
                Return "Fichero inexistente, y se ha creado uno nuevo"
            End If
            File.WriteAllText(p.nombre, "")
            File.WriteAllText(p.descripcion, "")
            File.WriteAllText(p.precio, "")
            File.WriteAllText(p.IDproducto, "")

            _Depot.Remove(p)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Return "Producto eliminado"
    End Function

    Public Sub New()
        Dim fich As StreamReader
        'se puede preguntar si existe con la siguiente instruccion
        If Not File.Exists("Productos.txt") Then Exit Sub
        Try
            fich = New StreamReader("Productos.txt", True)
            'fich.EndOfStream ///// si ha llegado a final de fichero
            Do While Not fich.EndOfStream
                Dim myproduct As New Producto

                Dim alga As String = fich.ReadLine
                Dim array() As String = alga.Split("*")


                _Depot.Add(myproduct)
            Loop
            fich.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class
